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FACILITY: Executive, system services and fork level code 


ABSTRACT: 
This module contains the entry point vectors used to implement 
VMS cluster functions as well as the table used to hook up <neee 
vectors to the actual routines. This module is assembled in 
different ways. If PRMSW is defined the resul sant neeei® (CLUSTRLOA) 
is Linked with the actual loadable routines. | RMSW is undefined, 
the resultant edule (CLUSTRVEC) is Cinked with SVS EXE. 


ENVIRONMENT: Kernel mode, fork level 


AUTHOR: Steve Beckhardt, CREATION DATE: 6-Jan-1983 


MODIFIED BY: 


v03-020 DWT0239 avid W. Thiel 29-Aug-1984 


Add CNX$BUGCHECK CLUSTER entry point. 


V03-019 DW10207 avid W. Thiel slit tet 
Add CNXSPOWER_ FAIL vector to be called on 
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vou Tet a eps Me eat eT ot a 
recovery from a 


power fot lure. Add CNX$DISK_CHANGE 
so that SYSINIT and CSP can inform connection 


6 manager when quorum disk is found. 

6 v03-018 $RB0117 Steve Beckhardt 18-Mar-1984 
6 Added vectors to get to routines for distributed 

ee deadlock detection. 

6 27-Feb-1984 


v03-017 DWT0177 David W. Thiel 
Remove CNXSDEALL_WARMCDRP and CNXSDEALL_MSG_BUF. 
Add CNXS$SHUTDOWN entry point. Rearrange code to 
be more conservative about deallocating code under 
the PC. Change the trailer PSECT name to be later 
in the collating sequence. Add patch space. 


V03-016 ADE0001 Alan D. Eldridge 10-Jan-1983 
Add EXESCSP_BRDCST to vectors. 


v03-015 ADE0001 Alan D. Eldridge 10-Jan-1983 
Add EXESCSP_COMMAND to vectors and call to CSPSINIT in 
initializatTon call. 

v03-014 RSHOOS1 R. Scott Hanna 11-AUG-1983 
Add call to CNXSQUORUM_INIT 

V03-013 ROW0197 Ralph 0. Weber 29-JUL-1983 


Add LOADVEC definitions for CNX$PARTNER_RESPOND, a respond to 
block transfer service, and CNXSCHANGE_GUORUM, a hook for a 
future change QUORUM dynamically service. 


v03-012 ROWO185 Ralph 0. Weber 24-JUN-1983 
Add yet another ton of LOADVEC statements to define entries 
for acknowledged message block transfer services. 
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V03-011 RNGOO11 Rod N. Gamache 13-Jun-1983 
Add entry points for the distributed GETLKI system service. 
v03-010 JLV0268 Jake VanNoy 27-MAY-1983 
Add EXESCSP_BRKTHRU, entry point for cluster broadcasts. 
v03-009 ROW0179 Ralph 0. Weber 29-APR-1983 
Add numerous LOADVEC statements to define entries for new 
1 acknowledged message services and distributed lock manager 
! support. 
1 V03-008 PRBO162 Paul R. Beck 14-APR-1983 
: Add vectors for EXESALLOC_CSD, EXESDEALLOC_CSD, EXESCSP_CALL. 
0 1 V03-007 JwHO212 Jes trey W. Horn 13-Apr-1983 
0 : Fix mistype in JWHO207. 
6 1 V03-006 JWHO207 Jeffrey W. Horn 12-Apr-1983 
: Use SLVTAB macro to generate load-code prologue. 
1 V03-005 ROWO174 Ralph 0. Weber 29-MAR-1983 
1 Add LOADVEC definitions for CNXSALLOC_CDRP, CNXSSEND_MSG, 
1 CNXSSEND_MSG_RESP, and CNXSSEND_MSG_RSPID; all routines which 


cysts C = Cluster Loadable Code Vectors 


se > — —  _ _  s  s - 2 _ s 


Wronoronononoronononn 2 SS 


SOOWONA UE WN -OOOnNOUu 


"SSEb=198e 08:00:33 USVs"Sachetusracmanss = #8" dy 


congen journaling facility must call to perform cluster 
ournaling. 


V03-004 DwWT0087 David W. Thiel 23-Mar-1983 
Correct previous modification to return valid 
status after initialization. 


v03-003 SRB0069 Steve Beckhardt 11-Mar-1983 
Added Support to at Low SYSENQDEQ to be Linked with 
CLUSTRLOA for debugg' ng purposes. Romgues cell 
LCKSGL_RQSEQNM ( s now in SYSCOMMON) 


v03-002 DwT0070 dW. Thiel 28-Jan-1983 
Setup to initialize gutonat ically on being loaded. 


Adjust psects and alignment. 
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.SBTTL DECLARATIONS 
4 : INCLUDE FILES: 


MACROS: 


IF DF ,PRMSW 
$DYNDEF 

IF _TRUE_FALSE 
$SLODEF 3; Loadable vector definitions 


; Data structure names 


: EQUATED SYMBOLS: 


¢; VECTOR LIST 


- IF TRUE ; For inclusion with loadable code 
-PSECT ___999,4 
PATCH BEGIN: 


Octaword alignment 


nm 
uw 
oa 

© 


; Patch space 


ee ee ee ee ee ee ee ee ee 
SIERRAS SAS AAAS SSNS AERA SENS R LUN SCS NOAE RAS SONS ORS 
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999 PATCH_END: 
8 CLULOA_END: ; End of loadable code 
Bp -PSECT $$$000,4 
909 CLULOA_START: 
000 SLVTAB END CLULOA_END 
9 INITRIN = CLULOAT Int. 
SUBTYP DYN cs. 
PACILITY= <CL SSrERs” 
oft fase : For inclusion with SYS.EXE 
0000 . PSECT $$$500,LONG 
8 - ALIGN LONG 
CLUSGL CLUB: : ; Address of CLUster Block 
00000000 
4 CLUSGL_CLUSVEC: : ; Address of Cluster System vector 
00000000 4 . 
0000 : CLUSEd Pat eRe) ; Maximum index+1 in Cluster System vector 
A CLU_RSB: ; Used to make unloaded entry a NOP 
05 A RSB 
ALIGN LONG 
C CLUSAL _LOA WeCe: ; New symbol to replace next 
C CLSSAL—LOAVEC 
C ~* VIF TRUE_FALSE 


S52 
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vou DECLARATIONS eet 7 9006 h3 SYS.SRCICLUSTR.MAR; 1 - 3) vc 
C 
LOADVEC CLUSGL_LOA_ADDR,1,,CLULOA_START ; Cluster code load address 
LADUE LCKSSND_CVTREQ te 
1 LOADVEC LCKSSND“LOCKREQ 
1 LOADVEC LCK$SND-GRANTED 
LOADVEC LCKSSND_DEQGR 
LOADVEC LCKSSND_DEQCV 
F teapyee LCKSSND_DEQUT 
LOADVEC LCKSSND_BLKING 
A LOADVEC LCKSSND-RAVDIR 
040 LOADVEC LCKSSND-TIMESTAMP_RQST 
8 LOAD VEE titi eerie 
4 LOADVEC LCKSSND_DLCKFND 
be LOADVEC LCKSSND_REDO_SRCH 
LOADVEC LCKSCVT-10_T0_LkB 
oF LOADVEC CNXSALLOC_CDRP 
6 LOADVEC CNXS$ALLOC”CDRP_ONLY 
BoA LOADVEC ENXSALL C_WARMCD 
070 LOADVEC tls an rw egg CSB 
076 LOADVEC CNX$DEALL-MSG BUF CSB 
4 LOADVEC ENXSDEALL “WARACDRP_ CSB 
LOADVEC CNXSINIT_C 
0 LOADVEC CNXS$SEND_MNY MSGS 
O8E LOADVEC CNX$ “MSG” 
094 LOADVEC CNXS$SEND_MSG_CSB 
LOADVEC CNXS$SEND MSG RESP 


LOCR_xF 
LOADVEC CNXS$BLOCK~ XFER IRP 
LOADVEC CNXSPARTNER_INIT_CSB 


CNX D 
LOADVEC ENXSPOUER FAIL, CLU_RSB 
LOADVEC CNX$DISK CHANGE 

LOADVEC CNX UGCRECK CLUSTER 
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LOADVEC EXESALLOC_CSB 
1 LOADVEC EXE SDEALLOC CSD 
1 LOADVEC Bue car BRD ROCST 
1 LOADVEC EXESCSP-CALL 
1 LOADVEC EXESCSP_ 
1 LOADVEC aii BRKTHRU 
11E LOADVEC LKISSND-STDREQ 
124 LOADVEC LKISSND"BLKING 
12A LOADVEC LKISSND_BLKBY 
: 6 LOADVEC LKISSND_LOCKS 
1 IF TRUE 3; End of vector List 
: LONG -1 
1 CLULOA_INIT: : Initialization code 
1 BSBW CNXSINIT 3; Do initializtion 


K 6 
SI en 


BSBW gun RYORUA. INIT ; Perform querua file initialization 
BLBC ; Branch on erro 
BSBwW ee INIT 3; Do load CSP code initialization 


; If the SENQ and $DEQ Syston services (module SYSENQDEQ) are Linked 
; with this (for debugging purposes? then hook up the system service 
: vecrers to point these routin 

3 ° NOTE: , Me YSGEN parameter SYSPAGING MUST be set to 0 for this 

; to work. 


-WEAK EXESSENQ,EXESSDEQ 


TSTL ’ yeceens Is loadable $ENQ service 2 qrocense 


Not Linked ured this mo 


8 G* 8 SWRITABLE ; pene ersten writeable 
MOVW B* eorattéenes Rove JAP af to start of resident 
MOVW B* iH ESDEQ+ ; services 
MOVAB BAEXE ESchdvg. GrEXESENar4: Move addresses of loadable services 
MOVAB W*EXFSSDEQ+2,G*EXESDEQ+4: to complete JMP a# instructions 
JSB G+ INISRDONL ¥ ; Make system read only again 
10$: MOVAB G*EXESGL =NONPAGER*4. R3 ; Address of fomepoged poet Listhead 
MOVAB W*CLULOA START,RO Address of block to deallocate 
MOVZWL actu LOA A TNIEND: =CLULOA stTaRT. R1 ; Length of block to deallocate 
SUBW3 7 yo} W*CLULOA_ INIEND+8 ; Compute new Length 
BRW DEALLO CATE ; Deallocate this piece of memory 
20$: RSB 3; Return 
30$: JMP G*EXESENQ ; Absolute jump instruction 
; Descriptor for patch space available in this module 


3; Note that this space is deallocated when the code is loaded 


ENXSPATCH:: 
.WORD PATCH_END-PATCH_BEGIN 


oW RD 

-LONG PATCH_BEGIN 

-PSECT $$$010,4 ; Octaword alignment 
When initialization is complete and the initialization code is 


PRO ODNA NEAR = OOD NA UNE WIN 9 OD NA NEN  O OD NAV FW OOONOAU EW OOONO 
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é ¢ Govetes, this block is left at the head of the remaining code. 
ALIGN 4 
6 CLULOA_ TENDS End of initialization code 
SLVTAB END = CLULOA END. 
UBTYP = DYN$c_CC cis, - 
? FACILITY= <CLUSTERS 
6 
6 DEALLOCATE: 
JSB G*EXESDEALLOCAT 3; Free initialization code 
MOVZWL S*#SS$_NORMA ; Set success status 
RSB ; Return from initialization 
6 ~ENDC 


Ss 
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Symbol table 
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CLSSAL stoavet C RG 
CLUSAL OAVEC RG 
CLUSG RG 
ctuset” ~ttusy EC RG 
CLUSGL"LOA_ADOR 4 RG 
CLUSGW "MAX INDEX RG 
CLU_RSB AR 
CNXSALLOC CORP F RG 
CNXSALLOC-CDRP_ONLY RG 
CNXSALLOC_WARMCDRP A RG 
CNXSALLOC “WARMCORP_CSB 9 RG 
CNXSBLOCK "REA RG 
CNXS$BLOCK-READ_IRP F RG 
CNXSBLOCK—W C4 RG 
CNXSBLOCK_WRITE_IRP CA RG 
CNX$BLOCK =X A6 RG 
CNXSBLOCK_XFER 000 a RG 
CNXSBUCCHECK CCUSTER 98 F4 RG 
CNXSCHANGE _QOOR bf RG 
CNXSDEALL_ASG BUF_CSB 000 RG 
CNXSDEALE “UARACDRP a 3008 7C RG 
CNX$D1SK_CHANGE 44 3 RG 
CNXSINIT-CD 0000 RG 
CNXSPARTRER_F INISH 999 DO RG 
CNXSPARTNER_INIT_ CSB 0 RG 
CNXSPARTNE SPOND 309 D6 RG 
CNX ER_F 0 RG 
CNXSSEND_ANY_MSGS 000 RG 
CNXSSEND_MS 000 f RG 
CNXSSEND_MSG_CSB 00 RG 
CNXSSEND_MSG_RESP 00009A RG 
CNXSSEND_MSG_RSPID ag RG 
CNXSSHUTB 0 E2 RG 
EXESALLOC_CSD 0 FA RG 
EXESCSP_BROCST $ 96 RG 
EXESCSP_BRKTHRU 000118 RG 
EXESCSP~CAL 0 19 RG 
EXESCSP"C 68 112 RG 
EXESDEACLOC_ CSD 100 RG 
EXESLOAD_ERR eeeteree § xX 
LCKSCVT_TD_ TO LKB 8 RG 
LCKSSND_BLRI 4 RG 
LCKSSND_CVTREQ RG 
LCKSSND_DEQCV RG 
LCKSSND_DEQGR RG 
LCKSSND_DEQUT E RG 
LCKSSND-DLCKFND C RG 
LCKSSND_ GRANT 1C RG 
LCKSSND-LOCKREQ 16 RG 
LCKSSND-REDO_SRCH ; RG 
LCKSSND_RMVOTR A RG 
LCKSSND- SRCHDLCK 28 RG 
LCKSSND_TIMESTAMP_ROST 40 RG 
LKISSND-BLKBY A RG 
LKISSND-BLKING 124 RG 
LE ISSN LOCKS 150 RG 
LKISSND-STDREQ 11E RG 
| 


CLUSTRVEC 


Psect synopsis - Cluster Loadable Code Vectors adi 19° S$ p= 1986 09: 04: }3 AX/VMS M 


SYS. sRc]e 


Fm eww rete ere esc eae nt 


! Psect synopsis ! 


Foeeeoeeeoeoeeeeanen$} 


PSECT name Allocation PSECT No. Attributes 


te weet ee mw teem emer wm eee ee met 


H Performance indicators ; 


Phase Page faults CPU Time Elapsed Time 


Initialization 5 :00: e. 7 100: 01 97 
ne processing 13 700: ?: | 13. iB 
Symbol table sort r : : 0. 6 9:88:00-69 
eT png 8:00:00, 0:00:00-19 
Psect synopsis output 1 + 700. 3 0:00.1 
Cross-reference output 9 :00: 2 :00: 8-08 
Assembler run totals 40 0:00:06. 00:00:20.4 


The working set Limit was 1200 pages. 

20019 bytes (40 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space aljocased to hold 82 non-local and 0 local symbols. 
source Lines were read in Pass 1, producing 18 object records in Pass 2. 

10 pages of virtual memory were used to define 8 macros. 


Macro library name Macros defined 


$255$DUA : SYS.OBJIJLIB m8; 1 ; 
$255$DUA28:(SYSLIBJSTARLET.MLB;2 
veties (all libraries) 5 


142 GETS were required to define 5 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:CLUSTRVEC/OBJ=OBJ$:CLUSTRVEC MSRC$:CLUSTR/UPDATE=(ENHS$: CLUSTR) +EXECML$/LIB 


ABS . 00 0 ( » : ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD 
$aBsS 0 ( ‘) ( 1.) NOPIC USR CON Ags LCL NOSHR EXE RD 
$$$500 00001 ( 310.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE 
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